home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Tweening.dir / Standard Elements_6_Misc. Handlers.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  1.2 KB  |  52 lines
  1. on removeButtons
  2.   global gTweeningButtonPropertyList, gTweeningPagePropertyList, gMaxChannels
  3.   set gTweeningButtonPropertyList to [:]
  4.   set gTweeningPagePropertyList to [:]
  5.   repeat with channelCount = 1 to gMaxChannels
  6.     if the type of sprite channelCount <> 0 then
  7.       puppetSprite(channelCount, 0)
  8.       set the visible of sprite channelCount to 1
  9.     end if
  10.   end repeat
  11.   puppetSound(0)
  12.   updateStage()
  13. end
  14.  
  15. on Wait howLong
  16.   set startTime to the timer
  17.   repeat while the timer < (startTime + howLong)
  18.     nothing()
  19.   end repeat
  20.   continue()
  21. end
  22.  
  23. on DoFlash whichSprite
  24.   global gLastTime
  25.   if voidp(gLastTime) then
  26.     set gLastTime to the timer
  27.   end if
  28.   if the timer > (gLastTime + 20) then
  29.     set the visible of sprite whichSprite to not (the visible of sprite whichSprite)
  30.     set gLastTime to the timer
  31.   end if
  32.   if the timer < (gLastTime - 20) then
  33.     set gLastTime to the timer
  34.   end if
  35. end
  36.  
  37. on ScrollDown
  38.   doButton()
  39.   if the result = 1 then
  40.     set scrollText to the name of the member of sprite (the clickOn - 2)
  41.     scrollByLine(member scrollText, 1)
  42.   end if
  43. end
  44.  
  45. on ScrollUp
  46.   doButton()
  47.   if the result = 1 then
  48.     set scrollText to the name of the member of sprite (the clickOn - 1)
  49.     scrollByLine(member scrollText, -1)
  50.   end if
  51. end
  52.